home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / graphics viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  119 lines
  1. 1 ifx>.then10
  2. 2 poke53280,.:poke53281,.
  3. 3 print"[147]"
  4. 4 print"      [212]he [199]raphics [195]ontest [215]inners"
  5. 5 :
  6. 8 poke55,120:poke56,55:clr
  7. 10 ifx=0thenx=1:load"unpacker",8,1
  8. 20 ifx=1thenx=2:load"bload.o",8,1
  9. 25 ifx=2thenx=3:load"copymem.o",8,1
  10. 30 :
  11. 40 bl=828:unpack=51456:hgr=51459
  12. 45 cm=14200
  13. 50 :
  14. 55 np=16:dim  r$(np),c(np),c$(7)
  15. 56 forx=1tonp:readr$(x),c(x)
  16. 59 next:c$(1)="":c$(2)="[153]":c$(3)="":c$(4)="[159]":c$(5)="[154]"
  17. 60 gosub 50060: rem title screen
  18. 70 forx=1tonp:gosub60000:ifa$="q"ora$="[209]"then gosub10000
  19. 90 sysbl,16384,r$(x)
  20. 92 :
  21. 95 ifright$(r$(x),3)="pic"thengosub61011:goto1000
  22. 96 poke249,224:poke250,204
  23. 97 poke251,0:poke252,64
  24. 98 poke253,0:poke254,0:gosub61011:ifa$="q"ora$="[209]"thengosub10000
  25. 99 print"[147]";:sysunpack:sys hgr:poke53280,c(x)
  26. 100 ag=3.34:kk=0
  27. 105 poke198,0
  28. 110 kk=kk+1:geta$:ifa$=""andkk<2000then110
  29. 112 ifa$="q"ora$="[209]"thengosub 10000
  30. 115 ifa$<>"[133]"then120
  31. 117 zz=zz+1:ifzz>15thenzz=0
  32. 118 poke53280,zz:goto100
  33. 120 syshgr:print"[147]":poke198,0:next x
  34. 130 goto70
  35. 140 :
  36. 1000 ag=3.34:poke249,224:poke250,204
  37. 1010 poke251,.:poke252,64
  38. 1020 poke253,.:poke254,.:print"[147]"
  39. 1030 sys cm,24576-8192,57344,8000
  40. 1040 sys cm,32576-8192,52224,1000
  41. 1050 sys cm,33576-8192,55296,1000
  42. 1055 poke53281,peek(34576-8192)
  43. 1060 sys hgr:poke53280,c(x):goto100
  44. 10000 o=peek(52084):poke52084,1:sys51459
  45. 10005 poke53281,1:poke53280,5
  46. 10010 print"[147][144]  [193]re you sure you want to quit [[217]/[206]]?"
  47. 10020 poke198,0:wait198,1:getag$
  48. 10030 ifag$="y"orag$="[217]"then30000
  49. 10040 poke53208,o:  return
  50. 30000 rem quit
  51. 30010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  52. 30020 ifer<>63thenprint"[147]":end
  53. 30030 load"hello connect",8
  54. 50000 rem data <real>, <border color>
  55. 50010 data two.birds.shp,8
  56. 50012 data cat.shp,6
  57. 50014 data hand.shp,0
  58. 50016 data sunset.shp,7
  59. 50020 data damsel.shp,15
  60. 50022 data beauty.shp,6
  61. 50026 data sensation.shp,14
  62. 50030 data fruit.shp,6
  63. 50034 data hallway.shp,0
  64. 50040 data fzzzt!.shp,7
  65. 50048 data art.gallery.shp,2
  66. 50050 data eagle.shp,12
  67. 50052 data thanatos.shp,11
  68. 50054 data artblock.shp,14
  69. 50056 data cruisin.shp,6
  70. 50058 data space.pic,14
  71. 50060 rem title screen
  72. 50065 print"[147]":poke53281,1:poke53280,1
  73. 50072 print"         [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  74. 50082 print"         [221][204]oadstar [208]resents[221][152] "
  75. 50092 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  76. 50102 print"                             "
  77. 50112 print
  78. 50122 print"  [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  79. 50132 print"  [221]      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159]        [221][152] "
  80. 50142 print"  [159][221]      [221] [199]raphics [195]ontest [221][154] [159]       [221][152] "
  81. 50152 print"  [159][221]      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159]       [221][152] "
  82. 50162 print"  [159][221]        [154]                   [159]       [221][152] "
  83. 50172 print"  [159][221]                                  [221][152][160]"
  84. 50182 print"  [159][221]   [211]lide [211]how [208]resenter written   [221][152][160]"
  85. 50192 print"  [159][221]   [194]y [193]lan [199]ardner, [205]ike [205]aynard  [221][152][160]"
  86. 50202 print"  [159][221]       & [202]im[160][210]ow -- ([195]) 1988      [221][152][160]"
  87. 50204 print"  [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
  88. 50212 print"                                       "
  89. 50222 print
  90. 50232 print"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  91. 50242 print"     [221]    [215]inners of [195]ommodore    [221][152] "
  92. 50252 print"     [221] [205]agazine's [199]raphics [195]ontest[221][152] "
  93. 50272 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  94. 50282 print"                                    "
  95. 50292 :
  96. 50302 print"   [ Press any key to start the show[160]]";
  97. 50312 print"";
  98. 50314 poke198,0:wait198,1:poke198,0
  99. 50316 poke53281,5:return
  100. 59990 :
  101. 60000 poke52084,1:sys51459
  102. 60001 poke53281,6:poke53280,6
  103. 60300 print"[147][152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:
  104. 60301 forqx=1to20:
  105. 60305 print"[221][221]";:next
  106. 60310 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  107. 60430 forlx=217to217+26:pokelx,(peek(lx)or128):next
  108. 61001 nm$="p."+left$(r$(x),len(r$(x))-4)
  109. 61004 open2,8,2,nm$:print"";:
  110. 61009 fori=0to1:get#2,a$:i=st:printa$;:ifa$=chr$(13)thenprint"";
  111. 61010 next:close2 :return
  112. 61011 kk=0
  113. 61012 poke214,22:print:printc$(c)
  114. 61013 print"[208]ress [209] to quit - [193]ny other to continue[145]":ford=0to5
  115. 61014 kk=kk+1:geta$:ifa$<>""orkk>1000thenreturn
  116. 61015 next:c=c+s:ifc>5thens=-1
  117. 61016 ifc<1thens=+1:c=1
  118. 61017 goto61012
  119.